1 GOSUB
10 VARNAME
1000 REM CHANGE " FOR +chr$(34) 
1001 UNKNOWN OP: 0x3A
1002 VARNAME
1003 IF
1004 VARNAME
11 LINE INPUT
12 INC
13 CLOSE
14 VARNAME
15 PRINT
16 WAIT
17 PRINT
18 PRINT
19 VARNAME
2 DIM
20 VARNAME
21 GOSUB
22 INC
23 VARNAME
24 PRINT
25 CLOSE
28 END
3 PAPER
4 IF
5 CLW
50000 MODE
50001 PALETTE
50002 PEN
50003 PEN
50004 PEN
50009 RETURN
6 LOCATE
7 PRINT
8 PRINT
9 TIMER